home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / Lab06 / Solution / home.asp < prev    next >
Encoding:
Text File  |  1997-04-24  |  16.7 KB  |  519 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html>
  3.  
  4. <head>
  5. <meta http-equiv="Content-Type"
  6. content="text/html; charset=iso-8859-1">
  7. <meta name="GENERATOR"
  8. content="Microsoft FrontPage (Visual InterDev Edition) 2.0">
  9. <title>State University</title>
  10. </head>
  11.  
  12. <BODY bgcolor="#FFFFFF">
  13. <center><img src="images/sutitle.gif">
  14. <hr>
  15. To see the courses we offer, click on one of our popular majors.
  16. <P>
  17. <script language="VBScript">
  18. Sub imgMath_Click()
  19. popClasses.Clear
  20. <%i = 0%>
  21.  
  22. <!--METADATA TYPE="DesignerControl" startspan
  23.     <OBJECT ID="rsClasses" WIDTH=151 HEIGHT=24
  24.      CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  25.         <PARAM NAME="_Version" VALUE="65536">
  26.         <PARAM NAME="_Version" VALUE="65536">
  27.         <PARAM NAME="_ExtentX" VALUE="3986">
  28.         <PARAM NAME="_ExtentY" VALUE="635">
  29.         <PARAM NAME="_StockProps" VALUE="0">
  30.         <PARAM NAME="DataConnection" VALUE="StateU">
  31.         <PARAM NAME="CommandText" VALUE="Select Title From Classes Where MajorID=1">
  32.     </OBJECT>
  33. -->
  34. <%
  35. fHideNavBar = False
  36. fHideNumber = False
  37. fHideRequery = False
  38. fHideRule = False
  39. stQueryString = ""
  40. fEmptyRecordset = False
  41. fFirstPass = True
  42. fNeedRecordset = False
  43. fNoRecordset = False
  44. tBarAlignment = "Left"
  45. tHeaderName = "rsClasses"
  46. tPageSize = 0
  47. tPagingMove = ""
  48. tRangeType = "Text"
  49. tRecordsProcessed = 0
  50. tPrevAbsolutePage = 0
  51. intCurPos = 0
  52. intNewPos = 0
  53. fSupportsBookmarks = True
  54. fMoveAbsolute = False
  55.  
  56. If IsEmpty(Session("rsClasses_Recordset")) Then
  57.     fNeedRecordset = True
  58. Else
  59.     If Session("rsClasses_Recordset") Is Nothing Then
  60.         fNeedRecordset = True
  61.     Else
  62.         Set rsClasses = Session("rsClasses_Recordset")
  63.     End If
  64. End If
  65.  
  66. If fNeedRecordset Then
  67.     Set StateU = Server.CreateObject("ADODB.Connection")
  68.     StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout")
  69.     StateU.CommandTimeout = Session("StateU_CommandTimeout")
  70.     StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
  71.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  72.     Set rsClasses = Server.CreateObject("ADODB.Recordset")
  73.     cmdTemp.CommandText = "Select Title From Classes Where MajorID=1"
  74.     cmdTemp.CommandType = 1
  75.     Set cmdTemp.ActiveConnection = StateU
  76.     rsClasses.Open cmdTemp, , 0, 1
  77. End If
  78. On Error Resume Next
  79. If rsClasses.BOF And rsClasses.EOF Then fEmptyRecordset = True
  80. On Error Goto 0
  81. If Err Then fEmptyRecordset = True
  82.  
  83. If Not IsEmpty(Session("rsClasses_Filter")) And Not fEmptyRecordset Then
  84.     rsClasses.Filter = Session("rsClasses_Filter")
  85.     If rsClasses.BOF And rsClasses.EOF Then fEmptyRecordset = True
  86. End If
  87.  
  88. If fEmptyRecordset Then
  89.     fHideNavBar = True
  90.     fHideRule = True
  91. End If
  92.  
  93. Do
  94.     If fEmptyRecordset Then Exit Do
  95.     If Not fFirstPass Then
  96.         rsClasses.MoveNext
  97.     Else
  98.         fFirstPass = False
  99.     End If
  100.     If rsClasses.EOF Then Exit Do
  101. %>
  102. <!--METADATA TYPE="DesignerControl" endspan-->
  103. popClasses.AddItem "<%= rsClasses("title") %>",<%=i%>
  104. <%i = i+1%>  
  105.  
  106.  
  107. <!--METADATA TYPE="DesignerControl" startspan
  108.     <OBJECT ID="DataRangeFtr1" WIDTH=151 HEIGHT=24
  109.      CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  110.         <PARAM NAME="_Version" VALUE="65536">
  111.         <PARAM NAME="_ExtentX" VALUE="3986">
  112.         <PARAM NAME="_ExtentY" VALUE="635">
  113.         <PARAM NAME="_StockProps" VALUE="0">
  114.     </OBJECT>
  115. -->
  116. <%
  117. Loop
  118. If tRangeType = "Table" Then Response.Write "</TABLE>"
  119. If tPageSize > 0 Then
  120.     If Not fHideRule Then Response.Write "<HR>"
  121.     If Not fHideNavBar Then
  122.         %>
  123.         <TABLE WIDTH=100% >
  124.         <TR>
  125.             <TD WIDTH=100% >
  126.                 <P ALIGN=<%= tBarAlignment %> >
  127.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  128.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  129.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  130.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  131.                     <% If fSupportsBookmarks Then %>
  132.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  133.                     <% End If %>
  134.                     <% If Not fHideRequery Then %>
  135.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  136.                     <% End If %>
  137.                 </FORM>
  138.                 </P>
  139.             </TD>
  140.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  141.                 <FONT SIZE=2>
  142.                 <%
  143.                 If Not fHideNumber Then
  144.                     If tPageSize > 1 Then
  145.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  146.                     Else
  147.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  148.                     End If
  149.                 End If
  150.                 %>
  151.                 </FONT>
  152.             </TD>
  153.         </TR>
  154.         </TABLE>
  155.     <%
  156.     End If
  157. End If
  158. %>
  159. <!--METADATA TYPE="DesignerControl" endspan-->
  160.  
  161. popClasses.PopUp
  162. end sub
  163.  
  164. </script>
  165.  
  166. <object id="imgMath"
  167.     name="imgMath"
  168.     classid="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF"
  169.     align="baseline" border="0" width="96" height="96">
  170.     <param name="PicturePath" value="images/math.gif">
  171.     <param name="AutoSize" value="-1">
  172.     <param name="BorderStyle" value="0">
  173.     <param name="SizeMode" value="3">
  174.     <param name="Size" value="2540;2540">
  175.     <param name="PictureAlignment" value="0">
  176.     <param name="VariousPropertyBits" value="19">
  177. </object>
  178.  
  179. <script language="VBScript">
  180.  
  181. Sub imgHistory_Click()
  182. popClasses.Clear
  183. <%i = 0%>
  184.  
  185. <!--METADATA TYPE="DesignerControl" startspan
  186.     <OBJECT ID="rsClasses" WIDTH=151 HEIGHT=24
  187.      CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  188.         <PARAM NAME="_Version" VALUE="65536">
  189.         <PARAM NAME="_Version" VALUE="65536">
  190.         <PARAM NAME="_ExtentX" VALUE="3986">
  191.         <PARAM NAME="_ExtentY" VALUE="635">
  192.         <PARAM NAME="_StockProps" VALUE="0">
  193.         <PARAM NAME="DataConnection" VALUE="StateU">
  194.         <PARAM NAME="CommandText" VALUE="Select Title from Classes where MajorID = 2">
  195.     </OBJECT>
  196. -->
  197. <%
  198. fHideNavBar = False
  199. fHideNumber = False
  200. fHideRequery = False
  201. fHideRule = False
  202. stQueryString = ""
  203. fEmptyRecordset = False
  204. fFirstPass = True
  205. fNeedRecordset = False
  206. fNoRecordset = False
  207. tBarAlignment = "Left"
  208. tHeaderName = "rsClasses"
  209. tPageSize = 0
  210. tPagingMove = ""
  211. tRangeType = "Text"
  212. tRecordsProcessed = 0
  213. tPrevAbsolutePage = 0
  214. intCurPos = 0
  215. intNewPos = 0
  216. fSupportsBookmarks = True
  217. fMoveAbsolute = False
  218.  
  219. If IsEmpty(Session("rsClasses_Recordset")) Then
  220.     fNeedRecordset = True
  221. Else
  222.     If Session("rsClasses_Recordset") Is Nothing Then
  223.         fNeedRecordset = True
  224.     Else
  225.         Set rsClasses = Session("rsClasses_Recordset")
  226.     End If
  227. End If
  228.  
  229. If fNeedRecordset Then
  230.     Set StateU = Server.CreateObject("ADODB.Connection")
  231.     StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout")
  232.     StateU.CommandTimeout = Session("StateU_CommandTimeout")
  233.     StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
  234.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  235.     Set rsClasses = Server.CreateObject("ADODB.Recordset")
  236.     cmdTemp.CommandText = "Select Title from Classes where MajorID = 2"
  237.     cmdTemp.CommandType = 1
  238.     Set cmdTemp.ActiveConnection = StateU
  239.     rsClasses.Open cmdTemp, , 0, 1
  240. End If
  241. On Error Resume Next
  242. If rsClasses.BOF And rsClasses.EOF Then fEmptyRecordset = True
  243. On Error Goto 0
  244. If Err Then fEmptyRecordset = True
  245.  
  246. If Not IsEmpty(Session("rsClasses_Filter")) And Not fEmptyRecordset Then
  247.     rsClasses.Filter = Session("rsClasses_Filter")
  248.     If rsClasses.BOF And rsClasses.EOF Then fEmptyRecordset = True
  249. End If
  250.  
  251. If fEmptyRecordset Then
  252.     fHideNavBar = True
  253.     fHideRule = True
  254. End If
  255.  
  256. Do
  257.     If fEmptyRecordset Then Exit Do
  258.     If Not fFirstPass Then
  259.         rsClasses.MoveNext
  260.     Else
  261.         fFirstPass = False
  262.     End If
  263.     If rsClasses.EOF Then Exit Do
  264. %>
  265. <!--METADATA TYPE="DesignerControl" endspan-->
  266. popClasses.AddItem "<%= rsClasses("title") %>",<%=i%>
  267. <%i = i+1%>  
  268.  
  269. <!--METADATA TYPE="DesignerControl" startspan
  270.     <OBJECT ID="DataRangeFtr2" WIDTH=151 HEIGHT=24
  271.      CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  272.         <PARAM NAME="_Version" VALUE="65536">
  273.         <PARAM NAME="_ExtentX" VALUE="3986">
  274.         <PARAM NAME="_ExtentY" VALUE="635">
  275.         <PARAM NAME="_StockProps" VALUE="0">
  276.     </OBJECT>
  277. -->
  278. <%
  279. Loop
  280. If tRangeType = "Table" Then Response.Write "</TABLE>"
  281. If tPageSize > 0 Then
  282.     If Not fHideRule Then Response.Write "<HR>"
  283.     If Not fHideNavBar Then
  284.         %>
  285.         <TABLE WIDTH=100% >
  286.         <TR>
  287.             <TD WIDTH=100% >
  288.                 <P ALIGN=<%= tBarAlignment %> >
  289.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  290.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  291.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  292.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  293.                     <% If fSupportsBookmarks Then %>
  294.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  295.                     <% End If %>
  296.                     <% If Not fHideRequery Then %>
  297.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  298.                     <% End If %>
  299.                 </FORM>
  300.                 </P>
  301.             </TD>
  302.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  303.                 <FONT SIZE=2>
  304.                 <%
  305.                 If Not fHideNumber Then
  306.                     If tPageSize > 1 Then
  307.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  308.                     Else
  309.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  310.                     End If
  311.                 End If
  312.                 %>
  313.                 </FONT>
  314.             </TD>
  315.         </TR>
  316.         </TABLE>
  317.     <%
  318.     End If
  319. End If
  320. %>
  321. <!--METADATA TYPE="DesignerControl" endspan-->
  322.  
  323.  
  324. popClasses.PopUp
  325. end sub
  326.  
  327. </script>
  328.     
  329. <object id="imgHistory"
  330.     name="imgHistory"
  331.     classid="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF"
  332.     align="baseline" border="0" width="96" height="96">
  333.     <param name="PicturePath" value="images/history.gif">
  334.     <param name="AutoSize" value="-1">
  335.     <param name="BorderStyle" value="0">
  336.     <param name="SizeMode" value="3">
  337.     <param name="Size" value="2540;2540">
  338.     <param name="PictureAlignment" value="0">
  339.     <param name="VariousPropertyBits" value="19">
  340. </object>
  341.  
  342. <script language="VBScript">
  343.  
  344. Sub imgMusic_Click()
  345. popClasses.Clear
  346. <% i = 0 %>
  347.  
  348.  
  349. <!--METADATA TYPE="DesignerControl" startspan
  350.     <OBJECT ID="rsClasses" WIDTH=151 HEIGHT=24
  351.      CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  352.         <PARAM NAME="_Version" VALUE="65536">
  353.         <PARAM NAME="_Version" VALUE="65536">
  354.         <PARAM NAME="_ExtentX" VALUE="3986">
  355.         <PARAM NAME="_ExtentY" VALUE="635">
  356.         <PARAM NAME="_StockProps" VALUE="0">
  357.         <PARAM NAME="DataConnection" VALUE="StateU">
  358.         <PARAM NAME="CommandText" VALUE="Select Title from Classes where MajorID=3">
  359.     </OBJECT>
  360. -->
  361. <%
  362. fHideNavBar = False
  363. fHideNumber = False
  364. fHideRequery = False
  365. fHideRule = False
  366. stQueryString = ""
  367. fEmptyRecordset = False
  368. fFirstPass = True
  369. fNeedRecordset = False
  370. fNoRecordset = False
  371. tBarAlignment = "Left"
  372. tHeaderName = "rsClasses"
  373. tPageSize = 0
  374. tPagingMove = ""
  375. tRangeType = "Text"
  376. tRecordsProcessed = 0
  377. tPrevAbsolutePage = 0
  378. intCurPos = 0
  379. intNewPos = 0
  380. fSupportsBookmarks = True
  381. fMoveAbsolute = False
  382.  
  383. If IsEmpty(Session("rsClasses_Recordset")) Then
  384.     fNeedRecordset = True
  385. Else
  386.     If Session("rsClasses_Recordset") Is Nothing Then
  387.         fNeedRecordset = True
  388.     Else
  389.         Set rsClasses = Session("rsClasses_Recordset")
  390.     End If
  391. End If
  392.  
  393. If fNeedRecordset Then
  394.     Set StateU = Server.CreateObject("ADODB.Connection")
  395.     StateU.ConnectionTimeout = Session("StateU_ConnectionTimeout")
  396.     StateU.CommandTimeout = Session("StateU_CommandTimeout")
  397.     StateU.Open Session("StateU_ConnectionString"), Session("StateU_RuntimeUserName"), Session("StateU_RuntimePassword")
  398.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  399.     Set rsClasses = Server.CreateObject("ADODB.Recordset")
  400.     cmdTemp.CommandText = "Select Title from Classes where MajorID=3"
  401.     cmdTemp.CommandType = 1
  402.     Set cmdTemp.ActiveConnection = StateU
  403.     rsClasses.Open cmdTemp, , 0, 1
  404. End If
  405. On Error Resume Next
  406. If rsClasses.BOF And rsClasses.EOF Then fEmptyRecordset = True
  407. On Error Goto 0
  408. If Err Then fEmptyRecordset = True
  409.  
  410. If Not IsEmpty(Session("rsClasses_Filter")) And Not fEmptyRecordset Then
  411.     rsClasses.Filter = Session("rsClasses_Filter")
  412.     If rsClasses.BOF And rsClasses.EOF Then fEmptyRecordset = True
  413. End If
  414.  
  415. If fEmptyRecordset Then
  416.     fHideNavBar = True
  417.     fHideRule = True
  418. End If
  419.  
  420. Do
  421.     If fEmptyRecordset Then Exit Do
  422.     If Not fFirstPass Then
  423.         rsClasses.MoveNext
  424.     Else
  425.         fFirstPass = False
  426.     End If
  427.     If rsClasses.EOF Then Exit Do
  428. %>
  429. <!--METADATA TYPE="DesignerControl" endspan-->
  430. popClasses.AddItem "<%= rsClasses("title") %>",<%=i%>
  431. <%i = i+1%>  
  432.  
  433. <!--METADATA TYPE="DesignerControl" startspan
  434.     <OBJECT ID="DataRangeFtr3" WIDTH=151 HEIGHT=24
  435.      CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  436.         <PARAM NAME="_Version" VALUE="65536">
  437.         <PARAM NAME="_ExtentX" VALUE="3986">
  438.         <PARAM NAME="_ExtentY" VALUE="635">
  439.         <PARAM NAME="_StockProps" VALUE="0">
  440.     </OBJECT>
  441. -->
  442. <%
  443. Loop
  444. If tRangeType = "Table" Then Response.Write "</TABLE>"
  445. If tPageSize > 0 Then
  446.     If Not fHideRule Then Response.Write "<HR>"
  447.     If Not fHideNavBar Then
  448.         %>
  449.         <TABLE WIDTH=100% >
  450.         <TR>
  451.             <TD WIDTH=100% >
  452.                 <P ALIGN=<%= tBarAlignment %> >
  453.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  454.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  455.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  456.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  457.                     <% If fSupportsBookmarks Then %>
  458.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  459.                     <% End If %>
  460.                     <% If Not fHideRequery Then %>
  461.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  462.                     <% End If %>
  463.                 </FORM>
  464.                 </P>
  465.             </TD>
  466.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  467.                 <FONT SIZE=2>
  468.                 <%
  469.                 If Not fHideNumber Then
  470.                     If tPageSize > 1 Then
  471.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  472.                     Else
  473.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  474.                     End If
  475.                 End If
  476.                 %>
  477.                 </FONT>
  478.             </TD>
  479.         </TR>
  480.         </TABLE>
  481.     <%
  482.     End If
  483. End If
  484. %>
  485. <!--METADATA TYPE="DesignerControl" endspan-->
  486.  
  487. popClasses.PopUp
  488. end sub
  489.  
  490. </script> 
  491.  
  492. <object id="imgMusic"
  493.     name="imgMusic"
  494.     classid="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF"
  495.     align="baseline" border="0" width="96" height="96">
  496.     <param name="PicturePath" value="images/Music.gif">
  497.     <param name="AutoSize" value="-1">
  498.     <param name="BorderStyle" value="0">
  499.     <param name="SizeMode" value="3">
  500.     <param name="Size" value="2540;2540">
  501.     <param name="PictureAlignment" value="0">
  502.     <param name="VariousPropertyBits" value="19">
  503. </object>
  504.  
  505. <object id="popClasses"
  506.     classid="CLSID:7823A620-9DD9-11CF-A662-00AA00C066D2"
  507.     codebase="controls/iemenu.ocx"
  508.     align="baseline" border="0" >
  509.     <param name="MenuItem[0]" value="Class 1">
  510.     <param name="MenuItem[1]" value="Class 2">
  511.     <param name="MenuItem[2]" value="Class 3">
  512.     <param name="MenuItem[3]" value="Class 4"> 
  513. </object>
  514. <P>You are visitor #<%=Application("hitcounter")%>
  515.  
  516. </center>
  517. </body>
  518. </html>
  519.